home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / shazam11.zip / DEMOC1.VIR < prev    next >
Text File  |  1991-11-04  |  3KB  |  77 lines

  1.    {===================================================================
  2.  
  3.    CLOCK OBJECT
  4.  
  5.    ===================================================================}
  6. var
  7.    Clock                     : PClockView ;
  8.    OldMemAvail               : longint ;
  9.    {===================================================================
  10.  
  11.    Make use of idle time
  12.  
  13.    ===================================================================}
  14. procedure TDemoC1App.Idle ;
  15. begin
  16.    TApplication.Idle ;
  17.    Clock^.Update ;
  18. end ;
  19.    {===================================================================
  20.  
  21.    Watch memory use
  22.  
  23.    ===================================================================}
  24. procedure TDemoC1App.PreInit ;
  25. begin
  26.    OldMemAvail               := MemAvail ;
  27. end ;
  28.    {===================================================================
  29.  
  30.    Insert clock into Desktop
  31.  
  32.    ===================================================================}
  33. procedure TDemoC1App.PostInit ;
  34. var
  35.    R                         : TRect ;
  36. begin
  37.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  38.    Clock
  39.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  40.    GetExtent ( R ) ;
  41.    R.A.X                     := R.B.X - 9 ;
  42.    R.B.Y                     := R.A.Y + 1 ;
  43.    Clock                     := New ( PClockView , 
  44.                                       Init ( R ) ) ;
  45.    {- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  46.    Desktop
  47.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}
  48.    Insert ( Clock ) ;
  49. end ;
  50.    {===================================================================
  51.  
  52.    Remove clock from Desktop
  53.    NOTE:  Remove comments to make work properly!
  54.    ===================================================================}
  55. procedure TDemoC1App.PreDone ;
  56. begin
  57. (*
  58.    Delete ( Clock ) ;
  59.    Dispose ( Clock , Done ) ;
  60. *)
  61. end ;
  62.    {===================================================================
  63.  
  64.    Make sure we removed everything from Desktop
  65.  
  66.    ===================================================================}
  67. procedure TDemoC1App.PostDone ;
  68. begin
  69.    if OldMemAvail = MemAvail then EXIT ;
  70.    writeln ( #7#7 ) ;
  71.    writeln ( 'Memory not totally released!' ) ;
  72.    writeln ( '...MemAvail WAS ' , OldMemAvail ) ;
  73.    writeln ( '...MemAvail NOW ' , MemAvail ) ;
  74.    writeln ;
  75.    writeln ( 'see the ''demoC1.VIR'' file and remove comments from ''PreDone''!' ) ;
  76. end ;
  77.